home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / telecomm / flashdoc.lzh / MAKESAVE.DO < prev    next >
Text File  |  1992-02-09  |  3KB  |  91 lines
  1. >** makesave.do V. 1.1.0 - 02/09/92
  2.  
  3. Copyright 1992 by Al Fasoldt.
  4.  
  5. This creates a DO file called SAVETEXT.DO. You should only have
  6. to run MAKESAVE.DO once, unless you have lost SAVETEXT.DO.
  7.  
  8. This script works much faster if it is run from a hard drive, but
  9. it can work from a floppy if needed.
  10.  
  11. SAVETEXT.DO uses Function Key 1 (F1) to save text in the Flash
  12. editing buffer. Texts are saved as SAVEBUFF.TX1 through .TX5.
  13.  
  14. To use SAVETEXT.DO, run this script once. It will create the
  15. operating DO file, named SAVETEXT.DO. Then, while you are
  16. writing or editing, switch to the terminal screen and press F1
  17. each time you want to save what you are writing or editing in the
  18. capture buffer. (The capture buffer is also the Flash editing
  19. screen.) The last 5 versions are saved to the default folder.
  20.  
  21. Note to experienced Flash users:
  22.  
  23. The default Flash function-key configuration file is saved as
  24. PREVIOUS.DEF so that you will not permanently lose whatever you
  25. may have programmed into F1. The new config file is saved as
  26. FUNCKEY.DEF.
  27.  
  28. Also, SAVETEXT.DO uses variables X, Y and Z. To attempt to save
  29. the previous state of those variables, MAKESAVE.DO looks for a
  30. DO file named SAVEVARS.DO and runs it first. SAVEVARS.DO is part
  31. of the utilities package distributed with this software; see it
  32. for more information.
  33.  
  34. |
  35. >sa fk previous.def|
  36. >fk 1 '>do savetext.do|'|
  37. >sa fk funckey.def|
  38. >ca on|
  39. >sa ca savebuff.tmp|
  40. >ca cl|
  41. >op savevars.do|
  42. >if op do savevars.do|
  43. >** End of preliminary subroutine. New script is created below.|
  44. >** |
  45. >ca cl|
  46. >log '>** savetext.do V. 1.1.0 - 02/09/92|'|
  47. >log|
  48. >log '>** Go to terminal screen and Press F1|'|
  49. >log|
  50. >log '>** to save text in editing buffer.|'|
  51. >log|
  52. >log '>$X savebuff|>$Y .tx|>$Z .bk|'|
  53. >log|
  54. >log '>sa ca $X$Z1|'|
  55. >log|
  56. >log '>**Backup (.bk1) is always saved of latest version).|'|
  57. >log|
  58. >log '>op $X$Y1|>if ~op jmp save1|'|
  59. >log|
  60. >log '>op $X$Y2|>if ~op jmp save2|'|
  61. >log|
  62. >log '>op $X$Y3|>if ~op jmp save3|'|
  63. >log|
  64. >log '>op $X$Y4|>if ~op jmp save4|'|
  65. >log|
  66. >log '>op $X$Y5|>if ~op jmp save5|'|
  67. >log|
  68. >log '>** Routine recycles after 5 versions are saved.|'|
  69. >log|
  70. >log '>L: save1|>sa ca $X$Y1|>ty  Text saved as $X$Y1.|>jmp out|'|
  71. >log|
  72. >log '>L: save2|>sa ca $X$Y2|>ty  Text saved as $X$Y2.|>jmp out|'|
  73. >log|
  74. >log '>L: save3|>sa ca $X$Y3|>ty  Text saved as $X$Y3.|>jmp out|'|
  75. >log|
  76. >log '>L: save4|>sa ca $X$Y4|>ty  Text saved as $X$Y4.|>jmp out|'|
  77. >log|
  78. >log '>L: save5|>sa ca $X$Y5|>ty  Text saved as $X$Y5.|>jmp out|'|
  79. >log|
  80. >log '>L: save1|>sa ca $X$Y1|>ty  Text saved as $X$Y1.|>jmp out|'|
  81. >log|
  82. >log '>L: out|>ty |>menu|>end|'|
  83. >log|
  84. >log '>**end of script|'|
  85. >log|
  86. >sa ca savetext.do|
  87. >ca cl|
  88. >lo ca savebuff.tmp||
  89. >ki savebuff.tmp|>menu|
  90. >** end of MAKESAVE.DO|
  91.